home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503d.d64 / stone rescue 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  169 lines
  1. 10 REM*********************************
  2. 20 REM***          WRITTEN          ***
  3. 30 REM***            BY             ***
  4. 40 REM***       DIRK SCHLOTE        ***
  5. 50 REM***            AND            ***
  6. 60 REM***     MATTHIAS STRECKER     ***
  7. 62 REM***        ZUM ANGER 8        ***
  8. 64 REM***    3430 WITZENHAUSEN 6    ***
  9. 66 REM***      TEL. 05542/1632      ***
  10. 70 REM*********************************
  11. 80 BN=1:L1=1:WG=8:GOSUB950:GOSUB1000
  12. 90 IFI<>0THEN670
  13. 100 REM********************************
  14. 110 REM***        TITELBILD         ***
  15. 120 REM********************************
  16. 130 POKE53280,1:POKE53281,1
  17. 140 PRINTCHR$(142):PRINTCHR$(8)
  18. 141 PRINTCHR$(147):PRINT:PRINT:PRINT
  19. 150 PRINT"          [154]  [144] [146]"
  20. 160 PRINT"[154]                [146][144] [146]"
  21. 170 PRINT"[154]   [144] [146]      [154]  [144] [146]              [154][169][144] [146]"
  22. 180 PRINT"[154]   [144] [146]      [154]  [144] [146]  [154]      [144] [146] [154]     [144] [146] [154]     [144] [146]"
  23. 190 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154] [144] [146]  [154] [144] [146]"
  24. 200 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154]     [144] [146]"
  25. 210 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154] [144] [146]"
  26. 220 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]      [144] [146] [154] [144] [146]  [154] [144] [146] [154]     [144] [146]"
  27. 230 PRINT"                                       ";
  28. 240 PRINT"                 RESCUE 1                ";
  29. 250 PRINT"                                        ";
  30. 260 PRINT"[144] 1985 [146]"
  31. 270 PRINT""
  32. 280 PRINT" BY MATTHIAS STRECKER AND DIRK SCHLOTE"
  33. 290 FORT=0TO4:PRINT"[145][145]":NEXT
  34. 300 PRINT"              PLEASE WAIT  "
  35. 310 I=1:GOTO90
  36. 320 PRINT"[145] PRESS A BUTTON "
  37. 330 FORT=0TO350:NEXT
  38. 340 PRINT"[145]                [146]
  39. 350 [161]A$:[139]A$[178]""[167]370
  40. 360 [153]"":[137]380
  41. 370 [129]T[178]0[164]350:[130]:[137]320
  42. 380 [153]"GENERATE OR PLAY GAME ?"
  43. 390 [153]"(  G  /  P  )"
  44. 400 [161]A$:[139]A$[178]"G"[167][158]51590
  45. 410 [139]A$[179][177]"P"[167]400
  46. 420 [141]1030
  47. 430 [143]*******************************
  48. 440 [143]***        BILD-LADEN       ***
  49. 450 [143]*******************************
  50. 460 [151]53281,1:[151]53280,1:[151]646,0
  51. 470 [153]"LOADES WIRD GELADEN
  52. 480 PRINT"BILD :";BN
  53. 530 BN$=STR$(BN)
  54. 540 A$="STONE-BILD"+BN$+"*"
  55. 550 FORT=1TOLEN(A$):POKE12984+T,ASC(MID$(A$,T,1)):NEXT
  56. 560 SYS51565
  57. 570 IFBN=10THENPOKE37794,65:POKE37787,65
  58. 590 RETURN
  59. 600 REM*******************************
  60. 610 REM***        GAME OVER        ***
  61. 620 REM*******************************
  62. 630 F1=48:GOSUB950:PRINT"[158]GAME OVER"
  63. 640 PRINT"PRESS SPACE"
  64. 643 POKE1179,48
  65. 645 FORZ=0TO50:FORT=0TO8:POKEV+22,T:NEXT:NEXT
  66. 650 L1=1:L2=0:L3=0:L4=0
  67. 660 POKE198,0:WAIT 198,1:GOTO360
  68. 670 REM*******************************
  69. 680 REM***     INITIALISIERUNG     ***
  70. 690 REM*******************************
  71. 700 IFI=1THENI=2:LOAD"STONE 1",8,1
  72. 710 IFI=2THENI=3:SYS49152:LOAD"STONE 2",8,1
  73. 720 V=53248:POKEV+37,8
  74. 730 POKEV+38,14
  75. 740 FORT=39TO43:POKEV+T,7:NEXT
  76. 750 POKE12949,31:POKE12969,8
  77. 760 GOTO 320
  78. 770 REM*******************************
  79. 780 REM***      ANZEIGEN-TAFEL     ***
  80. 790 REM*******************************
  81. 800 B1$=LEFT$(BN$,2)
  82. 805 IFBN<10THENB1$=CHR$(48)
  83. 806 B1=VAL(B1$)
  84. 810 B2$=RIGHT$(BN$,1):B2=VAL(B2$)
  85. 820 POKE12972,F1:POKE12973,F2
  86. 830 IFPEEK(12934)=51THENF2=F2+1
  87. 840 IFF2>57THENF1=F1+1
  88. 860 POKE12974,48+B1:POKE12975,48+B2
  89. 870 IFL1>57THENL2=L2+1
  90. 880 IFL2>57THENL3=L3+1
  91. 890 IFL3>57THENL4=L4+1
  92. 900 POKE12976,48+L4
  93. 910 POKE12977,48+L3
  94. 920 POKE12978,48+L2
  95. 930 POKE12979,48+L1
  96. 940 RETURN
  97. 950 REM*******************************
  98. 960 REM***       SCORE LOESCHEN    ***
  99. 970 REM*******************************
  100. 980 FORT=12931TO12936:POKET,48:NEXT
  101. 990 RETURN
  102. 1000 FORT=12937TO12942:POKET,48:NEXT
  103. 1010 RETURN
  104. 1030 REM******************************
  105. 1040 REM***     STEUERPROGRAMM     ***
  106. 1050 REM******************************
  107. 1060 F1=48:F2=51
  108. 1070 GOSUB1190:GOSUB1180:GOSUB430
  109. 1080 GOSUB1190:GOSUB1180:GOSUB770
  110. 1090 POKEV+21,255
  111. 1100 POKEV+4,144:POKEV+5,80
  112. 1110 POKEV+28,255:POKE2042,245
  113. 1120 POKE53280,0:POKE53281,0:POKE646,5
  114. 1123 POKEV+2,0:POKEV+6,0:POKEV+8,0:POKEV+10,0
  115. 1124 POKEV+22,200:POKEV+30,0:POKE12953,0
  116. 1125 POKE12960,0:POKE12952,0
  117. 1130 POKE12963,1:SYS49480:POKE12963,0
  118. 1140 S2=PEEK(12960)
  119. 1150 IFS2=1THENBN=BN+1:L1=L1+1:GOTO1070
  120. 1160 IFF2=49THENBN=1:GOTO600
  121. 1170 IFPEEK(12952)=1THENF2=F2-1:GOTO1080
  122. 1180 POKE12958,S1
  123. 1181 POKE12808,0:POKE12963,WA
  124. 1182 POKE12964,W1:POKE12965,W2
  125. 1183 POKE12966,W3:POKE12967,W4:RETURN:RETURN
  126. 1190 REM******************************
  127. 1200 REM***   BILDER VORBEREITEN   ***
  128. 1210 REM******************************
  129. 1215 W1=0:W2=0:W3=0:W4=0:GOSUB1182
  130. 1220 IFBN>=2THEN1240
  131. 1230 S1=12:WA=1:W1=87:W3=183:RETURN
  132. 1240 IFBN>=3THEN1260
  133. 1250 S1=11:WA=1:W1=87:W2=230:RETURN
  134. 1260 IFBN>=4THEN1280
  135. 1270 S1=11:WA=1:W1=230:RETURN
  136. 1280 IFBN>=5THEN1300
  137. 1290 S1=17:WA=1:W1=230:RETURN
  138. 1300 IFBN>=6THEN1320
  139. 1310 S1=15:WA=1:W1=78:W2=230:RETURN
  140. 1320 IFBN>=7THEN1340
  141. 1330 S1=12:WA=1:W1=230:RETURN
  142. 1340 IFBN>=8THEN1360
  143. 1350 S1=12:WA=1:W1=230:RETURN
  144. 1360 IFBN>=9THEN1380
  145. 1370 S1=10:WA=1:W1=230:RETURN
  146. 1380 IFBN>=10THEN1400
  147. 1390 S1=16:WA=1:W1=96:W2=230:RETURN
  148. 1400 IFBN>=11THEN1420
  149. 1410 S1=9:WA=1:W1=230:RETURN
  150. 1420 REM ******************************
  151. 1430 REM *** FOLGENDERMASSEN WERDEN ***
  152. 1440 REM *** EIGENE BILDER EINGEBAUT***
  153. 1450 REM *** 1. BILD ERZEUGEN       ***
  154. 1460 REM *** 2. STEINE ZAEHLEN      ***
  155. 1470 REM *** 3. NACH DEM SELBEN     ***
  156. 1480 REM ***    SCHEMA EINGEBEN WIE ***
  157. 1490 REM ***    OBEN.               ***
  158. 1500 REM *** - S1 = STEINANZAHL     ***
  159. 1510 REM *** - WA = 0 (WURM AUS)    ***
  160. 1520 REM *** - WA = 1 (WURM AN)     ***
  161. 1530 REM *** - W1-W4 HOEHEN DER     ***
  162. 1540 REM ***         WUERMER        ***
  163. 1550 REM ***         + :RETURN      ***
  164. 1560 REM *** - GOTO IN DER LETZTEN  ***
  165. 1570 REM ***   ZEILE ENTSPRECHEND   ***
  166. 1580 REM ***   AENDERN.(FERTIG)     ***
  167. 1590 REM ******************************
  168. 63999 IFBN>=11THENPOKE12949,PEEK(12949)-2:BN=1:RETURN
  169.